home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Applications
/
ProGen Demo
/
TEMPLATE.SCR
< prev
next >
Wrap
Text File
|
1994-02-18
|
3KB
|
106 lines
;; **** Main Procedures ****
PROCEDURE ("Startup")
Dialog(dlgAbout,3)
do("Main")
ENDPROC
PROCEDURE ("ABOUT")
Dialog(dlgAbout)
ENDPROC
PROCEDURE ("Main")
Set(platform,"M")
Set(productType,"")
Set(userName,"GenSoft")
Set(companyName,"GenSoft")
Set(serialNumber,"7MRSIE 25M 168905 03655")
Set(startup,"S")
Set(fileMask,"PG$$APPL")
Set(destination,"%D")
Dialog(dlgMain)
on (open)
SetDlgItemText(TITLE,"ProGen Installation") ;; main window title
SetDlgItemText(1,"Install ProGen Demonstration to your Hard Disk.")
;; Hide pushbuttons 2-4
HideDlgItem(7)
HideDlgItem(8)
HideDlgItem(9)
on (install)
do("Install")
on (quit)
quit
ENDPROC
;; **** Install Procedures ****
PROCEDURE ("Install")
Dialog(dlgInstall)
on (open)
SetDlgItemText(TITLE,"Install ProGen")
SetDlgItemText(24,"Name a NEW directory in which to install ProGen.")
;; AddCheckbox(chk1," YOUR TEXT ")
;; AddCheckbox(chk2," YOUR TEXT ")
;; AddCheckbox(chk3," YOUR TEXT ")
;; SetDlgItemValue(chk1,1)
;; SetDlgItemValue(chk2,1)
;; SetDlgItemValue(chk3,1)
SetDlgItemText(13,"ProGen Demo")
do ("Set SpaceRequired",MD)
on (chk1,chk2,chk3)
do ("Set SpaceRequired",MD)
on (ok)
;;do("Serialise")
WorkingMessage
do("Unpack Files")
CloseWorkingMessage
on (cancel)
Set(destination,"%D")
Delete("",ignoreError)
on (error)
Message("Due to an error, the installation is aborted. All files installed so far will be removed")
do ("Delete Files")
on (break)
Message("Aborting installation. All files installed so far will be removed")
do ("Delete Files")
ENDPROC
PROCEDURE ("Serialise")
Dialog(dlgSerial)
ON(open)
; Set Company Name Text Field
Set(companyName,"GenSoft")
SetDlgItemText(7,"GenSoft")
HideDlgItem(11)
HideDlgItem(7)
; Hide Radio Button for startup mode - will always be single user.
HideDlgItem(3)
HideDlgItem(4)
HideDlgItem(5)
SetDlgItemValue(4,1)
; User Instructions Text
SetDlgItemText(9,"Enter your name and serial number, from your registration card. Register with GenSoft for product support.")
ON(ok)
WorkingMessage
do("Unpack Files")
CloseWorkingMessage
ENDPROC
;; **** General Routines used by Install & Update ****
;;
;; Three routines will be appended here by the Make Masters command.
;;
;; 1) "Unpack Files" which contains all commands to unpack files or create directories.
;; 2) "Delete Files" which removes files and directories if an error occurs during an
;; Instalation.
;; 3) "Set SpaceRequired" which gets called by Install and Update to set the correct
;; space required, for the files about to be installed.